;   Elektor ESS511
;
	ORG	$F800		; EPROM VERSION
;
;	SOURCE LISTING OF A 6502 DISASSEMBLER
;	WITH A POWERFUL MONITOR
;
;	START ADDRESS: $064E RAM VERSION
;	START ADDRESS: $FC4E EPROM VERSION
;
;	WRITTEN BY A. NACHTMANN
;
;	DATE: 2 SEP. 1981
;
;	*********************
;	DISASSEMBLER FOR 6502
;	*********************
;
;	TEMPS AND POINTERS IN SCRATCHPAD
;
INSPNT	EQU	$10		; INSTRUCTION. POINTER
OPCODE	EQU	$12		; OP CODE BUFFER
RNIB	EQU	$13		; RIGHT NIBBLE OF THE OP CODE
LNIB	EQU	$14		; LEFT NIBBLE OF THE OP CODE
EOLNIB	EQU	$15		; 0/1 = EVEN/ODD IS THE LEFT NIBBLE
LENGTH	EQU	$16		; LENGTH OF THE INSTRUCTION 1-2-3
ADDR	EQU	$17		; DESTINATION OF A RELATIVE BRANCH
TEMP	EQU	$19
ERRFLG	EQU	$20		; ERROR FLAG
ML	EQU	$21		; LEFT MNEMONIC
MR	EQU	$22		; RIGHT MNEMONIC
MEPNT	EQU	$23		; MESSAGE POINTER
POINT	EQU	$FA		; DUMP POINTER
PMODE	EQU	$25		; PAGE MODE FLAG
CNT	EQU	$26		; LINE COUNTER
HEXFLG	EQU	$27		; HEX/ASCII FLAG
;
;	OTHER TEMPS
;
PARA	EQU	$1A63		; 1S" PARAMETER
PARB	EQU	$1A65		; 2ND PARAMETER
BRKT	EQU	$1A7C		; KEYBOARD BRK VECTOR
;
;	************************************
;	DISASSEMBLE 1 INSTRUCTION AND RETURN
;	************************************
;
DISASM	LDYIM	$00		; FETCH OP CODE
;===============================
	LDAIY	INSPNT
	STA	OPCODE		; AND SAVE IT
	ANDIM	$0F		; GET RIGHT NIBBLE
	STA	RNIB		; AND SAVE IT
	LDA	OPCODE
	LSRA
	LSRA
	LSRA
	LSRA
	STA	LNIB		; GET LEFT NIBBLE
	LSRA			; IS LEFT NIBBLE EVEN OR ODD?
	BCC	DISB
	LDAIM	$01		; SET E/O FLAG
;
DISA	STA	EOLNIB		; SAVE THE FLAG
	LDXIM	$04
	LDA	RNIB
;
VALOP	CMPX	NVALA		; IS COLUMN VALID?
	BEQ	ERRA		; NOT VALID
	DEX
	BPL	VALOP
	LDXIM	$19
	LDA	OPCODE
;
VALOPA	CMPX	NVALB		; VALID OP CODE IN ANY COLUMN
	BEQ	ERROR
	DEX
	BPL	VALOPA
	BMI	COLI
;
DISB	LDAIM	$00		; RESET E/O FLAG
	BEQ	DISA
;
ERRA	LDA	OPCODE
	CMPIM	$A2		; LDXIM IS VALID
	BEQ	LDXIMM
ERROR	LDXIM	$01		; INVALID OPCODES:
	STX	ERRFLG		; TNSTRUCTION LENGTH
	STX	LENGTH		; ONE
	LDXIM	$08		; @@@ IN MCTAB
	JSR	MCFA
	JMP	CENTRM
LDXIMM	LDXIM	$02		; LENGTH = 2
	STX	LENGTH
	LDXIM	$61		; NOT RELEVANT
	STX	ML		; NOT RELEVANT
	LDXIM	$30		; NOT RELEVANT
	STX	MR		; NOT RELEVANT
	JSR	MBFORM		; LNIB=A; INDEX=05!
	JMP	IMX		; PRINT OPERAND
COLI	LDXIM	$01
;===============================
	CPX	RNIB		; RNIB = 01?
	BNE	ZPZPX
;
;	***INDY-INDX ***
;
	INX			; LENGTH = 2
	STX	LENGTH
	JSR	MAFORM		; OUTPUT MNEMONIC
	LDA	EOLNIB		; E=INDX, O=INDY
	BEQ	INDX
;
INDY	JSR	PRINT
	DB	'('
	DB	'$'
	DB	$03
	LDYIM	$01
	LDAIY	INSPNT		; FETCH OPERAND
	JSR	PRBYT
	JSR	PRINT
	DB	')'
	DB	','
	DB	'Y'
	DB	$03
;
CENTRM	CLC			; ADJUST INSTRUCTION POINTER
	LDA	INSPNT
	ADC	LENGTH
	STA	INSPNT
	LDA	INSPNT+1	
	ADCIM	$00
	STA	INSPNT+1	
	RTS
;
;	***INDX ***
;
INDX	JSR	PRINT
	DB	'('
	DB	'$'
	DB	$03
	LDYIM	$01
	LDAIY	INSPNT		; FETCH OPERAND
	JSR	PRBYT
	JSR	PRINT
	DB	','
	DB	'X'
	DB	')'
	DB	$03
	JMP	CENTRM
;
;	***ZPZPX ***
;
ZPZPX	LDXIM	$05
	CPX	RNIB		; RNIB = 05?
	BNE	IMABSY
	LDXIM	$02
	STX	LENGTH		; LENGTH = 2
;===============================
	JSR	MAFORM
	LDA	EOLNIB		; E = ZP, 0 = ZPX
	BEQ	ZP
;
ZPX	JSR	PRINT
	DB	'$'
	DB	$03
	LDYIM	$01
	LDAIY	INSPNT		; FETCH OPERAND
	JSR	PRBYT
	JSR	PRINT
	DB	','
	DB	'X'
	DB	$03
	JMP	CENTRM
;
ZP	JSR	PRINT
	DB	'$'
	DB	$03
	LDYIM	$01
	LDAIY	INSPNT		; FETCH OPERAND
	JSR	PRBYT
	JMP	CENTRM
;
;	***IMABSY ***
;
IMABSY	LDXIM	$09
	CPX	RNIB		; RNIB = 09?
	BNE	ABSABX
	LDA	EOLNIB
	BEQ	IM		; E = IM, 0 = ABSY
ABSY	LDXIM	$03		; LENGTH = 3
	STX	LENGTH
	JSR	MAFORM		; OUTPUT MNEMONIC
ABSYS	JSR	PRINT
	DB	'$'
	DB	$03
	LDYIM	$02		; 2 OPERANDS
AYA	LDAIY	INSPNT
	JSR	PRBYT
	DEY
	BNE	AYA
	JSR	PRINT
	DB	','
	DB	'Y'
	DB	$03
	JMP	CENTRM

IM	LDXIM	$02
	STX	LENGTH		; LENGTH + 2
	JSR	MAFORM
IMX	JSR	PRINT
	DB	'#'
	DB	'$'
;===============================
	DB	$03
	LDYIM	$01
	LDAIY	INSPNT		; FETCH OPERANDS
	JSR	PRBYT
	JMP	CENTRM
;
;	***ABSABX ***
;
ABSABX	LDXIM	$0D
	CPX	RNIB		; RNIB = 00?
	BNE	SFTROT
	LDXIM	$03		; LENGTH = 3
	STX	LENGTH
	JSR	MAFORM		; OUTPUT MNEMONIC
	LDA	EOLNIB
	BEQ	ABS		; E = ABS, 0 = ABSX
;
ABSX	JSR	PRINT
	DB	'$'
	DB	$03
	LDYIM	$02		; 2 OPERANDS
;
AXA	LDAIY	INSPNT
	JSR	PRBYT
	DEY
	BNE	AXA
	JSR	PRINT
	DB	','
	DB	'X'
	DB	$03
	JMP	CENTRM
;
ABS	JSR	PRINT
	DB	'$'
	DB	$03
	LDYIM	$02		; 2 OPERANDS
;
ABA	LDAIY	INSPNT
	JSR	PRBYT
	DEY
	BNE	ABA
	JMP	CENTRM
;
;	***SFTROT ***
;
SFTROT	LDXIM	$06
	CPX	RNIB		; RNIB = 06?
	BNE	SRCONT
	LDXIM	$02		; LENGTH = 2
	STX	LENGTH
	JSR	MBFORM		; OUTPUT MNEMONIC
	LDXIM	$09
	CPX	LNIB		; ZPY INSTRUCTIONS?
	BEQ	ZPY
	LDXIM	$0B
;===============================
	CPX	LNIB
	BEQ	ZPY
	LDA	EOLNIB
	BEQ	SRA
	JMP	ZPX
;
SRA	JMP	ZP
;
ZPY	JSR	PRINT
	DB	'$'
	DB	$03
	LDYIM	$01
	LDAIY	INSPNT
	JSR	PRBYT
	JSR	PRINT
	DB	','
	DB	'Y'
	DB	$03
	JMP	CENTRM
;
;	***SRCONT ***
;
SRCONT	LDXIM	$0E
	CPX	RNIB		; RNIB = 0E?
	BNE	COLNUL
	LDXIM	$03		; LENGTH = 3
	STX	LENGTH
	JSR	MBFORM		; OUTPUT MNEMONIC
	LDXIM	$0B
	CPX	LNIB		; ABSY INSTRUCTION
	BEQ	SRCB		; ABSY
	LDA	EOLNIB
	BEQ	SRCA		; E = ABS, 0 = ABSX
	JMP	ABSX
;
SRCA	JMP	ABS
;
SRCB	JMP	ABSYS
;
;	***COLNUL ***
;
COLNUL	LDXIM	$00
	CPX	RNIB		; RNIB = 0
	BNE	COLFOR
	LDA	OPCODE
	CMPIM	$00		; BRK INSTR.?
	BEQ	COLNUB
	CMPIM	$40		; RTI INSTR.?
	BEQ	COLNUB
	CMPIM	$60		; RTS INSTR.?
	BEQ	COLNUB
	CMPIM	$20		; JSR INSTR,?
	BEQ	COLNUA
	ANDIM	$1F
	CMPIM	$10		; ANY BRANCH INSTR.?
	BEQ	OFFSET		; IF YES, COMPUTE OFFSET
;===============================
OTHER	LDXIM	$02		; LENGTH = 2
	STX	LENGTH
	JSR	MCFORM
	JMP	IMX
;
COLNUA	LDXIM	$03		; LENGTH = 3
	STX	LENGTH
	JSR	MCFORM
	JMP	ABS		; ABSOLUTE ADDRESSING
;
COLNUB	LDXIM	$01		; LENGTH 1
	STX	LENGTH
	JSR	MCFORM		; OUTPUT MNEMONIC
	JMP	CENTRM
;
OFFSET	LDXIM	$02		; LENGTH = 2
	STX	LENGTH
	JSR	MCFORM
	LDYIM	$01
	LDAIY	INSPNT		; FETCH OFFSET
	BPL	POSOFF		; PLUS/MINUS BRANCH
	JSR	ADJ		; ACCU IS NOT USED: "INSPNT +1"
	EORIM	$FF		; COMPLEMENT
	STA	TEMP
	SEC
	LDA	ADDR
	SBC	TEMP
	STA	ADDR
	LDA	ADDR+1		; CSTORE DESTINATION IN ADDR
	SBCIM	$00
	STA	ADDR+1
	JMP	POA
;
POSOFF	JSR	ADJ
	SEC			; "INSPTR +2"
	ADC	ADDR
	STA	ADDR
	LDAIM	$00
	ADC	ADDR+1
	STA	ADDR+1
;
POA	JSR	PRINT
	DB	'$'
	DB	$03
	LDXIM	$01
;
POB	LDAX	ADDR
	JSR	PRBYT		; OUTPUT DESTINATION ADDR
	DEX
	BPL	POB
	JMP	CENTRM
;
;	***COLFOR ***
;
COLFOR	LDXIM	$04
;=============================== 8
	CPX	RNIB		; RNIB = 04?
	BNE	COLCW
	LDXIM	$02		; LENGTH = 2
	STX	LENGTH
	JSR	MDFORM		; OUTPUT MNEMONIC
	LDA	EOLNIB
	BEQ	COLFRA		; E = ZP, O = ZPX
	JMP	ZPX
;
COLFRA	JMP	ZP
;
COLCW	LDXIM	$0C
	CPX	RNIB		; RNIB = OC?
	BNE	COLOA
	LDXIM	$03
	STX	LENGTH		; LENGTH = 3
	JSR	MDFORM		; OUTPUT MNEMONIC
	LDA	OPCODE
	CMPIM	$6C		; JMP (CIND) INSTRUCTION
	BEQ	IND
	CMPIM	$BC		; LDY,X INSTRUCTION?
	BEQ	SPELDY
	JMP	ABS		; ELSE ABS ADDRESSING
;
SPELDY	JMP	ABSX
;
IND	JSR	PRINT
	DB	'('
	DB	'$'
	DB	$03
	LDYIM	$02
;
INDA	LDAIY	INSPNT
	JSR	PRBYT		; OUTPUT INDIRECT OPERAND
	DEY
	BNE	INDA
	JSR	PRINT
	DB	')'
	DB	$03
	JMP	CENTRM
;
;	***COLOA ***
;
COLOA	LDXIM	$0A
	CPX	RNIB
	BNE	IMPLD		; ONLY IMPLIED ADDRESSING IS NOW POSSIBLe
	LDXIM	$01
	STX	LENGTH		; LENGTH = 1
	LDX	LNIB
	CPXIM	$07		; CHECK FOR ACCU ADDRESSING
	BCC	ACCU
	JSR	MEFORM
	JMP	CENTRM
ACCU	JSR	MEFORM
	JSR	PRINT
; PAGE 9
	DB	' '
	DB	'A'
	DB	$03
	JMP	CENTRM
;
IMPLD	LDXIM	$01
	STX	LENGTH
	JSR	MEFORM		; OUTPUT MNEMONIC
	JMP	CENTRM
;
;	*******************************
;	SUBROUTINES OF THE DISASSEMBLER
;	*******************************
;
;
;	***XSPACE ***
;
XSPACE	JSR	PRSP		; OUTPUT X SPACES
	DEX
	BNE	XSPACE
	RTS
;
;	***PRBYTS ***
;
PRBYTS	JSR	PRBYT		; OUTPUT THE BYTE IN A
	JMP	PRSP		; AND ADD A SPACE
;
;	***OBJECT ***
;
OBJECT	JSR	CRLF		; OUTPUT OBJECT CODE
	LDA	INSPNT+1	; OUTPUT ADDR. OF THE
	JSR	PRBYT		; CURRENT OP CODE
	LDA	INSPNT
	JSR	PRBYTS
	LDYIM	$00
	LDXIM	$0F		; IS COLUMN OBJECT FIELD
OBJ	LDAIY	INSPNT		; PRINT OP CODE AND OPERAND
	JSR	PRBYTS		; AS A FUNCTION OF LENGTH
	DEX
	DEX
	DEX			; MINUS 1 BYTE AND 1 SPACE
	INY
	CPY	LENGTH		; OBJECT FINISHED?
	BNE	OBJ
	JSR	XSPACE		; FILLUP WITH SPACES
	RTS
;
;	***OBJMNE ***
;
OBJMNE	JSR	OBJECT		; PRINT A FORMATTED OBJECT CODE
;
PRMNES	LDXIM	$03		; AND THE CORRESPONDING MNEMONICS
;
MNEMON	LDYIM	$05
; PAGE 10
	LDAIM	$00		; 2 SHIFTS PER CHARACTER, RESET A
;
MNEA	ASL	MR		; ENCODE MNEMONIC INTO A
	ROL	ML
	ROLA
	DEY
	BNE	MNEA
	ORAIM	$40		; RESTORE ASCII CODE
	JSR	PRCHA		; PRINT MNEMONIC CHARACTER
	DEX
	BNE	MNEMON		; 3 MNEMONIC CHAR. PRINTED
	JSR	PRSP
	RTS
;
;	***PRINT ***
;
PRINT	PLA			; PULL RETURN ADDRESS FROM STACK
	STA	MEPNT		; AND SAVE IT
	PLA
	STA	MEPNT+1	
;
PRTA	INC	MEPNT
	BNE	PRTB
	INC	MEPNT+1	
;
PRTB	LDYIM	$00		; FETCH CHARACTER AND
	LDAIY	MEPNT		; PRINT IT
	CMPIM	$03		; EOT?
;
	BEQ	PRTC
	JSR	PRCHA
	JMP	PRTA
PRTC	LDA	MEPNT+1		; PUSH RETURN ADDRESS ON
	PHA			; STACK AND RETURN
	LDA	MEPNT
	PHA
	RTS
;
;	***ADJ **
;
ADJ	LDX	INSPNT		; ADJUST FOR REL. BRANCH
	LDY	INSPNT+1	
	INX
	BNE	ADJA
	INY
;
ADJA	STX	ADDR
	STY	ADDR+1		; ACCU IS NOT CHANGED!
	RTS
;	********************
;	COMPRESSED MNEMONICS
;	********************
; PAGE PAGE 11
MALTAB	DB	$7C	; ORA		DB	ML PART
	DB	$0B	; AND		; COLUMNS 1,5,9,D
	DB	$2B	; EOR
	DB	$09	; ADC
	DB	$9D	; STA
	DB	$61	; LDA
	DB	$1B	; CMP
	DB	$98	; SBC
;
MARTAB	DB	$82	; ORA		; MR PART
	DB	$88	; AND		; COLUMNS 1,5,9,D
	DB	$E4	; EOR
	DB	$06	; ADC
	DB	$02	; STA
	DB	$02	; LDA
	DB	$60	; CMP 
	DB	$86	; SBC
;
MBLTAB	DB	$0C	; ASL		; ML PART
	DB	$93	; ROL		; COLUMNS 6,E,2 (LDX# ONLY)
	DB	$64	; LSR
	DB	$93	; ROR
	DB	$90	; STX
	DB	$61	; LDX		; (INCLUDING LDXIM)
	DB	$21	; DEC
	DB	$4B	; INC
;
MBRTAB	DB	$D8	; ASL		; MR PART
	DB	$D8	; ROL		; COLUMNS 6,E,2 (LDX# ONLY)
	DB	$E4	; LSR
	DB	$E4	; ROR
	DB	$30	; STX
	DB	$30	; LDX		; (INCLUDING LDXIM)
	DB	$46	; DEC
	DB	$86	; INC
;
MCLTAB	DB	$14	; BRK		; ML PART
	DB	$14	; BPL		; COLUMN 0
	DB	$54	; JSR		; AND INVALID
	DB	$13	; BMI		; OPCODE
	DB	$95	; RTI
	DB	$15	; BVC
	DB	$95	; RTS		; No VALID OPCODE
	DB	$15	; BVS
	DB	$00	; @@@
	DB	$10	; BCC
	DB	$61	; LDY
	DB	$10	; BCS
	DB	$1C	; CPY
	DB	$13	; BNE
	DB	$1C	; CPX
	DB	$11	; BEQ
;
MCRTAB	DB	$96	; BRK		; MR PART
	DB	$18	; BPL		; COLUMN 0
	DB	$E4	; JSR		; AND INVALID
					; OPCODE
; PAGE 12
	DB	$52			; BMI
	DB	$12			; RTI
	DB	$86			; BVC
	DB	$26			; RTS
	DB	$A6			; BVS
	DB	$00			; @@@		NO VALID OPCODE
	DB	$C6			; BCC
	DB	$32			; LDY
	DB	$E6			; BCS
	DB	$32			; CPY
	DB	$8A			; BNE
	DB	$30			; CPX
	DB	$62			; BEQ
;
MDLTAB	DB	$FF			; NOT USED
	DB	$12			; BIT		ML PART
	DB	$53			; JMP		COLUMN 4,C
	DB	$53			; JMP
	DB	$90			; STY
	DB	$61			; LDY
	DB	$1C			; CPY
	DB	$1C			; CPX
;
MDRTAB	DB	$FE			; NOT USED
	DB	$68			; BIT		MR PART
	DB	$60			; JMP		COLUMN 4,C
	DB	$60			; JMP
	DB	$32			; STY
	DB	$32			; LDY
	DB	$32			; CPY
	DB	$30			; CPX
;
MELTAB	DB	$0C			; ASL
	DB	$FF			; NOT USED
	DB	$93			; ROL
	DB	$FF			; NOT USED
	DB	$64			; LSR
	DB	$FF			; NO VALID OPCODE
	DB	$93			; ROR
	DB	$FF			; NOT USED
	DB	$A6			; TXA
	DB	$A6			; TXS
	DB	$A0			; TAX
	DB	$A4			; TSX
	DB	$21			; DEX
	DB	$FF			; NOT USED
	DB	$73			; NOP
	DB	$FF			; NOT USED
;
MERTAB	DB	$D8			; ASL		MR PART
	DB	$FE			; NOT USED	COLUMN A
	DB	$D8
	DB	$FE			; NOT USED
	DB	$E4
	DB	$FE			; NOT USED
	DB	$E4
; PAGE PAGE 13
	DB	$FE	;	NOT USED
	DB	$02	;	TXA
	DB	$26	;	TXS
	DB	$70	;	TAX
	DB	$F0	;	TSX
	DB	$70	;	DEX
	DB	$FE	;	NOT USED
	DB	$E0	;	NOP
	DB	$FE	;	NOT USED
;
MFLTAB	DB	$82	;	PHP	ML PART COLUMN 8
	DB	$1B	;	CLC
	DB	$83	;	PLP
	DB	$99	;	SEC
	DB	$82	;	PHA
	DB	$1B	;	CLI
	DB	$83	;	PLA
	DB	$99	;	SEI
	DB	$21	;	DEY
	DB	$A6	;	TYA
	DB	$A0	;	TAY
	DB	$1B	;	CLV
	DB	$4B	;	INY
	DB	$1B	;	CLD
	DB	$4B	;	INX
	DB	$99	;	SED
;
MFRTAB	DB	$20	;	PHP	MR PART COLUMN 8
	DB	$06	;	CLC
	DB	$20	;	PLP
	DB	$46	;	SEC
	DB	$02	;	PHA
	DB	$12	;	CLI
	DB	$02	;	PLA
	DB	$52	;	SEI
	DB	$72	;	DEY
	DB	$42	;	TYA
	DB	$72	;	TAY
	DB	$2C	;	CLV
	DB	$B2	;	INY
	DB	$08	;	CLD
	DB	$B0	;	INX
	DB	$48	;	SED
;
NVALA	DB	$02	;	COLUMN 2	NO 
	DB	$03	;	COLUMN 3	VALID 
	DB	$07	;	COLUMN 7	OPCODES
	DB	$0B	;	COLUMN B
	DB	$0F	;	COLUMN F
;
NVALB	DB	$80	;	ALL "BLANKS" 
	DB	$04	;	(INVALID OPCODES) 
	DB	$14	;	IN COLUMNS 
	DB	$34	;	0,4,9, A,C AND E
	DB	$44	;
	DB	$54	;
; PAGE 14
	DB	$64	;
	DB	$74	;
	DB	$D4	;
	DB	$F4	;
	DB	$89	;
;	FBC0
	DB	$1A	;
	DB	$3A	;
	DB	$5A	;
	DB	$7A	;
	DB	$DA	;
	DB	$FA	;
	DB	$0C	;
	DB	$1C	;
	DB	$3C	;
	DB	$5C	;
	DB	$7C	;
	DB	$9C	;
	DB	$DC	;
	DB	$FC	;
	DB	$9E	;
;
;	**********************************
;	JUMP TABLE TO EXTERNAL SUBROUTINES
;	**********************************
;
CRLF	JMP	$11E8
PRCHA	JMP	$1334		; OUTPUT SUBROUTINE
RECCHA	JMP	$12AE		; INPUT SUBROUTINE
PRBYT	JMP	$128F		; OUTPUT THE BYTE IN A
PRSP	JMP	$11F3		; OUTPUT A SPACE
INPAR	JMP	$1387		; INPUT 2 PARAMETERS
RESIN	JMP	$1268		; RESET BUFFERS
INCPNT	JMP	$1213		; INCREMENT A POINTER
PRNIBL	JMP	$1298		; OUTPUT A NIBBLE
USR	JMP	$105F		; USER EXIT

;
;	******************
;	FORMAT SUBROUTINES
;	******************
;
MAFORM	LDA	LNIB
	LSRA			; DIVIDE INDEX BY 2
	TAX
	LDAX	MALTAB		; FETCH COMPRESSED MNEMONICS
	STA	ML
	LDAX	MARTAB
	STA	MR
;
MNEMOC	JSR	OBJMNE		; OUTPUT OBJECT AND MNEMONIC
	RTS
;
MBFORM	LDA	LNIB		; DIVIDE INDEX BY 2
	LSRA
; PAGE 15
	TAX
	LDAX	MBLTAB
	STA	ML
	LDAX	MBRTAB		; FETCH COMPRESSED MNEMONIC
	STA	MR
	JMP	MNEMOC
;
MCFORM	LDX	LNIB
;
MCFA	LDAX	MCLTAB		; FETCH COMPR. MNEMONIC
	STA	ML
	LDAX	MCRTAB
	STA	MR
	JMP	MNEMOC
;
MDFORM	LDA	LNIB
	LSRA			; DIVIDE INDEX BY 2
	TAX
	LDAX	MDLTAB		; FETCH COMPRESSED MNEMONIC
	STA	ML
	LDAX	MDRTAB
	STA	MR
	JMP	MNEMOC
;
MEFORM	LDX	LNIB
	LDAX	MELTAB		; FETCH COMPRESSED MNEMONIC
	STA	ML
	LDAX	MERTAB
	STA	MR
	JMP	MNEMOC
;
MFFORM	LDX	LNIB
	LDAX	MFLTAB		; FETCH COMPRESSED MNEMONIC
	STA	ML
	LDAX	MFRTAB
	STA	MR
	JMP	MNEMOC
;
;	***************************
;	MONITOR OF THE DISASSEMBLER
;	***************************
;
;	L: DISASSEMBLE FROM/TO
;	P: DISASSEMBLE 16 LINES (WINDOW)
;	D: START DISASSEMBLER
;	 : SPACE BAR = DISASSEMBLE 1 LINE
;	H; PRINT A HEXDUMP
;	A: PRINT AN ASCII DUMP
;	R: RELEASE THIS MONITOR
;
DISMON	LDAIM	DISMA&$FF		; LOAD BRK VECTOR
	LDXIM	DISMA/256
; PAGE 16
	STA	BRKT
	STX	BRKT+1	
	JSR	PRINT
	DB	$0D
	DB	$0A
	DB	'V'
	DB	'A'
	DB	'L'
	DB	'I'
	DB	'D'
	DB	' '
	DB	'C'
	DB	'O'
	DB	'M'
	DB	'M'
	DB	'A'
	DB	'N'
	DB	'D'
	DB	'S'
	DB	':'
	DB	' '
	DB	'A'
	DB	' '
	DB	'D'
	DB	' '
	DB	'H'
	DB	' '
	DB	'L'
	DB	' '
	DB	'P'
	DB	' '
	DB	'R'
	DB	' '
	DB	'S'
	DB	'P'
	DB	$0D
	DB	$0A
	DB	$03
;
DISMA	JSR	CRLF
;
DISMB	JSR	RECCHA		; WAIT FOR A KEY STROKE
	CMPIM	'D'		; D-COMMAND?
	BNE	DISMD
	JSR	PRINT
	DB	$0D
	DB	$0A
	DB	'D'
	DB	'I'
	DB	'S'
	DB	'A'
	DB	'S'
	DB	'S'
	DB	'E'
	DB	'M'
	DB	'B'
; PAGE 17
	DB	'L'
	DB	'E'
	DB	':'
	DB	' '
	DB	$03
	JSR	RESIN		; RESET INPUT BUFFER
	JSR	INPAR		; GET PARAMETERS
	BMI	DISMA		; VALID CHARACTER?
	JSR	CHCK		; 1ST PAR < 2ND PAR?
	BCC	DISMA
;
DISMC	LDA	PARA
	LDX	PARA+1	
	STA	INSPNT		; SET UP INSTRUCTION POINTER
	STX	INSPNT+1	
	JSR	PRINT
	DB	$0D
	DB	$0A
	DB	'L'
	DB	','
	DB	'P'
	DB	','
	DB	'S'
	DB	'P'
	DB	' '
	DB	'?'
	DB	$03
	JMP	DISMA
;
DISMD	CMPIM	'P'		; P COMMAND?
	BNE	DISMF
	LDAIM	$0F		; SET LINECOUNTER AND PAGE MODE
	STA	PMODE
	STA	CNT
;
DISME	SEC
	LDA	PARB		; INSPNT <  'R'?
	SBC	INSPNT
	LDA	PARB+1
	SBC	INSPNT+1
	BCC	DISMB
	JSR	DISASM		; DISASSEMBLE THE CURR. INSTR.
	LDA	PMODE		; CHECK PAGE MODE
	BEQ	DISME
	DEC	CNT
	BNE	DISME
	BEQ	DISMB		; 15 LINES?
;

DISMF	CMPIM	'L'		; L COMMAND?
	BNE	DISMG
	LDAIM	$00
	STA	PMODE		; RESET PAGE MODE
	BEQ	DISME
;
DISMG	CMPIM	' '		; SPACE BAR?
	BNE	DISMH
; PAGE 18
	LDAIM	01
	STA	PMODE		; DISASSEMBLE 1 INSTRUCTION
	STA	CNT
	BNE	DISME
;
DISMH	CMPIM	'H'		; H COMMAND? 
	BNE	DISMQV
	LDAIM	$01
	STA	HEXFLG		; SET HEXFLAG
	JSR	PRINT
	DB	$0D
	DB	$0A
	DB	'H'
	DB	'E'
	DB	'X'
	DB	' '
	DB	'D'
	DB	'U'
	DB	'M'
	DB	'P'
	DB	':'
	DB	' '
	DB	$03
DISMR	JSR	RESIN
	JSR	INPAR
	BPL	DISMK		; VALID INPUT?
;
DISMI	JMP	DISMA
;
DISMQV	JMP	DISMQ
;
DISMK	JSR	CHCK
	BCC	DISMI
	JSR	CRLF
	JSR	CRLF
	LDXIM	$06
	JSR	XSPACE
	LDYIM	$00
;
DISML	TYA			; PRINT HEADER
	JSR	PRNIBL		; OUTPUT A NIBBLE
	LDXIM	$02
	JSR	XSPACE
	INY
	CPYIM	$10		; 16 COLUMNS?
	BNE	DISML
	LDA	PARA
	STA	POINT		; SET DUMP POINTER
	LDA	PARA	+01
	STA	POINT	+01
	JSR	CRLF
DISMP	JSR	CRLF
	LDXIM	$10
; PAGE 19
	STX	CNT
	LDA	POINT+1
	JSR	PRBYT
	LDA	POINT
	JSR	PRBYT		; OUTPUT CURRENT ADDRESS
	JSR	PRINT
	DB	':'
	DB	' '
	DB	$03
DISMN	LDA	PARB
	SEC
	SBC	POINT
	LDA	PARB+1
	SBC	POINT+1
	BCS	DISMO		; HEX DUMP FINISHED?
	JMP	DISMA
;
DISMO	LDYIM	$00
	LDAIY	POINT
	LDX	HEXFLG
	BEQ	DISMT		; IS HEX FLAG SET?
	JSR	PRBYT
;
DISMU	JSR	PRSP
	JSR	INCPNT
	DEC	CNT
	BNE	DISMN		; 16 COLUMNS PRINTED?
	BEQ	DISMP
;
DISMT	CMPIM	$20		; ASCII FILTER
	BCC	DISMV
	CMPIM	$7F
	BCS	DISMV
	JSR	PRCHA		; OUTPUT ASCII
	LDXIM	$01
;
DISMW	JSR	XSPACE
	JMP	DISMU
;
DISMV	LDXIM	$02
	BNE	DISMW
;
DISMQ	CMPIM	'A'		; A COMMAND?
	BNE	RELEAS
	LDAIM	$00
	STA	HEXFLG
	JSR	PRINT
	DB	$0D
	DB	$0A
	DB	'A'
	DB	'S'
	DB	'C'
	DB	'I'
	DB	'I'
	DB	' '
; PAGE 20
	DB	'D'
	DB	'U'
	DB	'M'
	DB	'P'
	DB	':'
	DB	' '
	DB	$03
	JMP	DISMR
;
DISMS	JMP	DISMA
;
CHCK	LDA	PARB	; PARA < PARB?
	SEC
	SBC	PARA
	LDA	PARB +01
	SBC	PARA +01
	RTS
;
RELEAS	CMPIM	'R'		; R COMMAND?
	BNE	DISMS
	JMP	USR		; USER SELECTABLE ADDR.
;
;	**************************
;	END OF PROGRAM
;	**************************
; PAGE 21
;
; PAGE 22
;
; PAGE 23
;
; PAGE 24
;
;	24NL/UK/G/F
;
;       ****************ONE****************
;
ORG	$FDDA
;
;	EPROM PROGRAMMING UTILITIES
;
;	WRITTEN BY G.H.NACHBAR
;
;	DATE:26 JANUARY 1982
;
;	POINTERS AND TEMPS IN PAGE ZERO
;
CMPMOD	EQU	$28		; COMPARE FLAG

SORSAL	EQU	$E2		; FIRST SOURCE ADDRESS LOW
SORSAH	EQU	$E3		; FIRST SOURCE ADDRESS HIGH
SOREAL	EQU	$E4		; LAST SOURCE ADDRESS LOW
SOREAH	EQU	$E5		; LAST SOURCE ADDRESS HIGH
CURADL	EQU	$E6		; SOURCE POINTER LOW
CURADH	EQU	$E7		; SOURCE POINTER HIGH
DESSAL	EQU	$E8		; FIRST DESTINATION ADDRESS LOW
DESSAH	EQU	$E9		; FIRST DESTINATION ADDRESS HIGH
DIFL	EQU	$EA		; (DESSA MINUS SORSA) LOW
DIFH	EQU	$EB		; (DESSA MINUS SORSA) HIGH

BYTES	EQU	$F6		; INSTRUCTION LENGTH BUFFER
POINTL	EQU	$FA		; DESTINATION POINTER LOW
POINTH	EQU	$FB		; DESTINATION POINTER HIGH
;
; POINTERS AND TEMPS IN PAGE 1A
;
PARAL	EQU	$1A63		; FIRST ADDRESS LOW
PARAH	EQU	$1A64		; FIRST ADDRESS HIGH
PARBL	EQU	$1A65		; SECOND ADDRESS LOW
PARBH	EQU	$1A66		; SECOND ADDRESS HIGH
NMIL	EQU	$1A7A		; NMI VECTOR LOW
NMIH	EQU	$1A7B		; NMI VECTOR HIGH
;
;	ADRESSES IN STANDARD EPROM
;
BEGIN	EQU	$1ED3		; INITIALIZE SOURCE POINTER
OPLEN	EQU	$1E5C		; GET INSTRUCTION LENGTH
;
;	ADDRESSES IN PM/PME EPROM
;
IPB	EQU	$13A2		; ENTER ONE ADDRESS
;;;	INCPNT	EQU	$1213		; INCREMENT POINT
PRBUFS	EQU	$11F8		; PRINT DATA SPECIFIED BY POINT

; PAGE 25
;	25NL G/F
;	****************TWO****************
;
;	ADDRESSES ELSEWHERE IN DISASSEM/EPRUTL EPROM
;
IF	0
USR	EQU	$FBEA		; JUMP TO PM
INPAR	EQU	$FBDE		; ENTER TWO ADDRESSES
RESIN	EQU	$FBE1		; RESET INPUT BUFFERS
PRINT	EQU	$FAF2		; PRINT DATA STRING FOLLOWING JSR PRINT
CRLF	EQU	$FBCF		; FRESH LINE
RECCHA	EQU	$FBD5		; WAIT FOR AN ASCII CHARACTER
CHCK	EQU	$FDC5		; COMPARE THE TWO INPAR ADDRESSES
ENDIF

;
;	************
;	KEY ROUTINES
;	************
;	*1 P KEY
;	ENTER SORSA,SOREA AND DESSA
;	*2 M KEY
;	DATA WITH AN ADRESS WITHIN THE SOURCE DATABLOCK IS COPIED
;	INTO LOCATIONS FROM DESSA ONWARDS (SEE NOTE)
;	*5 B KEY
;	BACK TO PM
;	*4 V KEY
;	COMPARE DESTINATION DATA WITH SOURCE DATA, IF NOT EQUAL:
;	PRINT DESTINATION DATA WITH ADDRESS (SEE NOTE)
;	*5 F KEY
;	EPROM CHECK:IF DESTINATION DATA IS NOT $FF,PRINT IT
;	WITH ADDRESS (SEE NOTE)
;
;	*6 R KEY
;
;	ALL OPERANDS OF THREE BYTE INSTRUCTIONS WITH
;	SORSAK <= OPERAND <= SOREA ARE CHANGED ACCORDING TO THE NEW
;	DESTINATION OF THE SOURCE DATA BLOCK (SEE NOTE)
;
;	*7 NMI/ST KEY (STANDARD KEYBOARD)
;	PRINT PARAMETERS
;
;	NOTE: THE DIFFERENCE BETWEEN CURAD AND SORSA ALWAYS EQUALS
;	THE DIFFERENCE BETWEEN POINT AND DESSA
;
;	**********************************************
;	MAIN ROUTINE OF THE EPROM PROGRAMMING SOFTWARE
;	**********************************************
EPRUTL	LDAIM	PRMTRS&$FF	; SPECIFY NMI VECTOR
	LDYIM	PRMTRS/256
;===============================
;	********THREE*******************
	STA	NMIL
	STY	NMIH
	JSR	PRINT		; INITIAL BLURP
	DB	$0D
	DB	$0A
	DB	'E'
	DB	'P'
	DB	'R'
	DB	'O'
	DB	'M'
	DB	' '
	DB	'P'
	DB	'R'
	DB	'O'
	DB	'G'
	DB	'R'
	DB	'A'
	DB	'M'
	DB	'M'
	DB	'I'
	DB	'N'
	DB	'G'
	DB	' '
	DB	'U'
	DB	'T'
	DB	'I'
	DB	'L'
	DB	'I'
	DB	'T'
	DB	'I'
	DB	'E'
	DB	'S'
	DB	$0D
	DB	$0A
	DB	'V'
	DB	'A'
	DB	'L'
	DB	'I'
	DB	'D'
	DB	' '
	DB	'C'
	DB	'O'
	DB	'M'
	DB	'M'
	DB	'A'
	DB	'N'
	DB	'D'
	DB	'S'
	DB	':'
	DB	' '
	DB	'P'
	DB	','
	DB	'M'
	DB	','
	DB	'B'
	DB	','
	DB	'V'
	DB	','
	DB	'F'
	DB	','
	DB	'R'
	DB	$03
;===============================
;	************* FOUR *************
EPRA	JSR	CRLF		; START ON A FRESH LINE
	JSR	RECCHA		; WAIT FOR A DEPRESSED KEY
	CMPIM	'P'		; BRANCH IF NO P KEY
	BNE	EPRD		; SOURCE MESSAGE
EPRB	JSR	PRINT
	DB	$0D
	DB	$0A
	DB	'F'
	DB	'I'
	DB	'R'
	DB	'S'
	DB	'T'
	DB	','
	DB	'L'
	DB	'A'
	DB	'S'
	DB	'T'
	DB	' '
	DB	'S'
	DB	'O'
	DB	'U'
	DB	'R'
	DB	'C'
	DB	'E'
	DB	' '
	DB	'A'
	DB	'D'
	DB	'D'
	DB	'R'
	DB	'E'
	DB	'S'
	DB	'S'
	DB	':'
	DB	' '
	DB	' '
	DB	$03		; EOT
;===============================
	JSR	RESIN		; RESET INPUT BUFFERS
	JSR	INPAR		; ENTER TWO ADDRESSES
	BMI	EPRB		; REPEAT IF NOT DONE PROPERLY
	JSR	CHCK
	BCC	EPRB		; REPEAT IF LAST<FIRST ADDRESS
	LDA	PARAL
	LDY	PARAH
	STAZ	SORSAL
	STYZ	SORSAH		; SORSA=FIRST ADDRESS ENTERED
	LDA	PARBL
	LDY	PARBH
	STAZ	SOREAL
	STYZ	SOREAH		; SOREA=SECOND ADDR, ENTERED
EPRC	JSR	PRINT		; SOURCE MESSAGE
	DB	$0D
	DB	$0A
	DB	'F'
	DB	'I'
	DB	'R'
	DB	'S'
	DB	'T'
	DB	' '
	DB	'D'
	DB	'E'
	DB	'S'
	DB	'T'
	DB	'I'
	DB	'N'
	DB	'A'
	DB	'T'
	DB	'I'
	DB	'O'
	DB	'N'
	DB	' '
	DB	'A'
	DB	'D'
	DB	'D'
	DB	'R'
	DB	'E'
	DB	'S'
	DB	'S'
	DB	':'
	DB	' '
	DB	' '
	DB	$03
	JSR	RESIN		; RESET INPUT BUFFERS
;
	JSR	IPB		; ENTER ONE ADDRESS
	BMI	EPRC		; REPEAT IF NOT PROPERLY DONE
	LDA	PARBL
	LDY	PARBH
	STAZ	DESSAL
	STYZ	DESSAH		; DESSA=ADDRESS ENTERED
	JMP	EPRA		; READY FOR NEW USER ACTION
;
EPRD	CMPIM	'M'
	BNE	EPRE		; BRANCH IF NO M KEY
	JSR	BEGIN		; CURAD=SORSA
	JSR	FIRST		; POINT=DESSA
;
EPRO	LDYIM	$00
	LDAIY	CURADL		; FETCH SOURCE DATA
	STAIY	POINTL		; MOVE IT TO DESTINATION
	JSR	INCPNT		; ADJUST DESTINATION POINTER
	LDAIM	$01
	STAZ	BYTES
	JSR	NXT		; ADJUST SOURCE POINTER
	BCS	EPRO		; NEXT DATA,IF ANY
	JSR	PRINT		; FINAL MESS
	DB	$0D
	DB	$0A
	DB	'D'
	DB	'A'
	DB	'T'
	DB	'A'
	DB	' '
	DB	'M'
	DB	'O'
	DB	'V'
	DB	'E'
	DB	'D'
	DB	$03		; EOT
	JMP	EPRA		; READY FOR NEW USER ACTION
EPRE	CMPIM	'B'
	BNE	EPRF		; BRANCH IF NO B KEY
;	*************SIX*************
	JMP	USR		; BACK TO PM ("JUNIOR")
EPRF	CMPIM	'V'
	BNE	EPRG		; BRANCH IF NO V KEY
	LDAIM	$00		; GET CMPMOD
	STAZ	CMPMOD		; RESET CMPMOD
EPRH	JSR	BEGIN		; CURAD=SORSA
	JSR	FIRST		; POINT=DESSA
EPRK	LDYIM	$00
	LDAZ	CMPMOD
	BNE	EPRL		; BRANCH IF CMPMOD IS SET
	LDAIY	CURADL		; FETCH SOURCE DATA
	CMPIY	POINTL		; COMPARE IT WITH DEST. DATA
EPRM	BEQ	EPRN		; IF EQUAL:NEXT DATA COMPARE
	JSR	PRBUFS		; PRINT UNEQUAL DEST, DATA
EPRN	JSR	INCPNT		; ADJUST DESTINATION POINTER
	LDAIM	$01
	STAZ	BYTES
	JSR	NXT		; ADJUST SOURCE POINTER
	BCS	EPRK		; NEXT DATA,IF ANY
	JSR	PRINT		; FINAL MESSAGE
	DB	$0D
	DB	$0A
	DB	'D'
	DB	'A'
	DB	'T'
	DB	'A'
	DB	' '
	DB	'C'
	DB	'O'
	DB	'M'
	DB	'P'
	DB	'A'
	DB	'R'
	DB	'E'
	DB	'D'
	DB	$03		; EOT
	JMP	EPRA		; READY FOR NEW USER ACTION
EPRG	CMPIM	'F'
	BNE	EPRI		; BRANCH IF NO F KEY
	LDAIM	$01
	STAZ	CMPMOD		; SET CMPMOD
	BNE	EPRH		; GO TO COMPARE ROUTINE
EPRL	LDAIY	POINTL		; FETCH DESTINATION DATA
	CMPIM	$FF		; AND COMPARE IT WITH $FF
	JMP	EPRM		; BACK TO COMPARE ROUTINE
EPRI	CMPIM	'R'
	BNE	EPRJ		; BRANCH IF NO R KEY
	JSR	BEGIN		; CURAD-SORSA
	JSR	FIRST		; POINT=DESSA
	JSR	DIFAD		; DIF IS DESSA MINUS SORSA
TEST	JSR	OPLEN		; GET INSTRUCTION LENGTH
	CPYIM	$03
	BNE	NXTINS		; BRANCH IF NO 3 BYTE INSTRUCTION
	DEY
	DEY
	LDAIY	CURADL		; FETCH ADL
	SEC
;	*************SEVEN*************
	SBCZ	SORSAL		; ADL MINUS SORSAL
	INY
	LDAIY	CURADL		; FETCH ADH
	SBCZ	SORSAH		; ADH MINUS SORSAH MINUS !C
	BCC	NXTINS		; BRANCH IF OPERAND < SORSA
	DEY
	LDAZ	SOREAL		; FETCH LAST SOURCE ADDRESS LOW
	SBCIY	CURADL		; SOREAL MINUS ADL
	INY
	LDAZ	SOREAH		; FETCH LAST SOURCE ADDRESS HIGH
	SBCIY	CURADL		; SOREAH MINUS ADH MINUS !C
	BCC	NXTINS		; BRANCH IF OPERAND>SOREA
	CLC
	DEY
	LDAIY	CURADL		; FETCH OLD ADL
	ADCZ	DIFL		; AND ADD DIFL TO IT
	STAIY	CURADL		; REPLACE ADL (SOURCE DATA BLOCK)
	STAIY	POINTL		; REPLACE ADL (DEST. DATA BLOCK)
	INY
	LDAIY	CURADL		; FETCH OLD ADH
	ADCZ	DIFH		; ADD DIFH AND C TO IT
	STAIY	CURADL		; REPLACE ADH (SOURCE DATA BLOCK)
	STAIY	POINTL		; REPLACE ADH (DEST. DATA BLOCK)
NXTINS	LDYZ	BYTES
NXTIN	JSR	INCPNT		; ADJUST DESTINATION POINTER
	DEY			; ADJUST SOURCE POINTER
	BNE	NXTIN
	JSR	NXT
	BCS	TEST		; NEXT INSTRUCTION,IF ANY
	JSR	PRINT		; FINAL MESSAGE
	DB	$0D
	DB	$0A
	DB	'R'
	DB	'E'
	DB	'L'
	DB	'O'
	DB	'C'
	DB	'A'
	DB	'T'
	DB	'E'
	DB	'D'
	DB	$03		; EOT
EPRJ	JMP	EPRA		; READY FOR NEW USER ACTION
;
;	*********************************************
;   SUBROUTINES OF THE EPROM PROGRAMMING SOFTWARE
;	*********************************************
;
FIRST	LDAZ	DESSAL		; INITIALIZE DESTINATION POINTER
	LDYZ	DESSAH
	STAZ	POINTL
	STYZ	POINTH		; DESTINATION POINTER-DESSA
	RTS
;==============================
;	31NL/UK/G/F
;	*************EIGHT*************
;
;	****************
;	SUBROUTINE DIFAD
;	****************
;
;	THE 16 BIT NUMBER (DIFH,DIFL) EQUALS THE DIFFERENCE BETWEEN
;	(DESSAH,DESSAL) AND (SORSAH,SORSAL). IT IS USED IN THE
;	R KEY ROUTINE
;
DIFAD	SEC
	LDAZ	DESSAL
	SBCZ	SORSAL
	STAZ	DIFL
	LDAZ	DESSAH
	SBCZ	SORSAH
	STAZ	DIFH		; DIF=DESSA MINUS SORSA
	RTS
;
;	**************
;	SUBROUTINE NXT
;	**************
;
;	THE SOURCE POINTER CURAD IS INCREASED BY THE CONTENTS OF BYTES,
;	THE CONTENTS OP BYTES IS EITHER AN INSTRUCTION LENGTH (R KEY
;	ROUTINE) OR $01 (M,V AND F KEY ROUTINE).
;	SUBSEQUENTLY THE CARRY FLAG WILL BE SET OR RESET,DEPENDING ON THE
;	NEW POSITION (CONTENTS) OF CURAD,
;	AFTER RTS THE CARRY FLAG WILL BE
;
;	*SET (C=1,!B=0)		; IF NEW CURAD IS SMALLER THAN OR EQUALS SOREA;
;
;	*RESET (C=0;!B=1)	; IF NEW CURAD IS GREATER THAN SOREA,
				; OR IF THE 65K MEMORY BORDER ($FFFF) IS CROSSED
				; AT THE COMPUTATION OF THE NEW CURAD, THE LATTER
				; OCCURS IF THE OLD CURADH IS $FF _AND_ IF THE OLD
				; CURADL IS $FF (M,V AND F KEY ROUTINE) OR $FE OR
				; $FD (R KEY ROUTINE)
;
NXT	CLC
	LDAZ	CURADL
	ADCZ	BYTES
	STAZ	CURADL
	LDAZ	CURADH
	ADCIM	$00
	STAZ	CURADH		; CURAD INCREASED BY (BYTES)
	BCS	NXTB		; BRANCH IF $FFFF IS CROSSED
	SEC
	LDAZ	SOREAL		; CARRY
	SBCZ	CURADL		; DEPENDS
	LDAZ	SOREAH		; ON
	SBCZ	CURADH		; SOREA MINUS CURAD
NXTA	RTS			; OR
NXTB	CLC			; ON CROSSING $FFFF,
	BCC	NXTA		; THE MEMORY BOUNDARY
;
;	NOTE: WHY ALL THE FUSS ABOUT CROSSING $FFFF? WELL,IF WE SKIP THE
;	BCS NXTB THE FOLLOWING CURAD TEST WILL BE INVALID,BECAUSE,IF SOREA
;	IS $FFFF,THE NEW CURAD WILL BE SMALLER THAN SOREA, IT IS LIKE MAKING
;	A TRIP AROUND THE WORLD WHICH WILL LAST FOREVER BECAUSE WE DIDN'T
;	NOTICE THE FACT THAT WE HAVE BEEN PASSING OUR DEPARTING POINT!
;==============================
;	32NL/UK/G/F
;
;	*************NINE*************
;
;	*************************
;	NMI/ST KEY ROUTINE PRMTRS
;	*************************
;
;	PRINT "XXXX <= AD <= YYYY TO >= ZZZZ"
;	XXXX: FIRST SOURCE ADDRESS
;	YYYY: LAST SOURCE ADDRESS
;	ZZZZ: FIRST DESTINATION ADDRESS
;
;	A GRAPHICAL SUMMARY OF THE MOST RECENT ADDRESS PARAMETERS
;
PRMTRS	PLA
	PLA
	PLA			; RESTORE STACK POINTER
	JSR	CRLF		; START ON A FRESH LINE
	LDAZ	SORSAH
	JSR	PRBYT		; PRINT SORSAH
	LDAZ	SORSAL
	JSR	PRBYT		; PRINT SORSAL
	JSR	PRINT		; SOURCE MESSAGE
	DB	'<'
	DB	'='
	DB	'A'
	DB	'D'
	DB	'='
	DB	'<'
	DB	$03		; EOT(END OF ASCII STRING)
	LDAZ	SOREAH		; PRINT SOREAH
	JSR	PRBYT
	LDAZ	SOREAL
	JSR	PRBYT		; PRINT SOREAL
	JSR	PRINT		; DESTINATION MESSAGE
	DB	' '
	DB	'T'
	DB	'O'
	DB	' '
	DB	'>'
	DB	'='
	DB	$03
	LDAZ	DESSAH		; EOT(END OF ASCII STRING)
	JSR	PRBYT		; PRINT DESSAH
	LDAZ	DESSAL
	JSR	PRBYT		; PRINT DESSAL
	JMP	EPRA		; READY FOR NEW USER ACTION
;
;	**************
;	SYSTEM VECTORS
;	**************
;
	DB	$2F		; ADL OF JMI (NMI JUMP VECTOR)
	DB	$1F		; ADH OF JMI (NMI JUMP VECTOR)
	DB	$1D		; ADL OF RESET (ST. EPROM)
	DB	$1C		; ADH OF RESET (ST. EPROM)
	DB	$32		; ADL OF JMI (IRQ JUMP VECTOR)
	DB	$1F		; ADH OF JMI (IRQ JUMP VECTOR)

